home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 098 / eds.arc / EDSLOG.LSP < prev    next >
Encoding:
Text File  |  1980-01-01  |  492 b   |  17 lines
  1. (defun c:log1 ( )
  2.    (setq edit1 (getvar "tdindwg"))
  3.    (setq edit1 (rtos edit1 2 6))
  4.    (setq lastedit (getvar "tdupdate"))
  5.    (setq lastedit (rtos lastedit 2 6))
  6.    (setq create (getvar "tdcreate"))
  7.    (setq create (rtos create 2 6))
  8.    (setq name (getvar "dwgname"))
  9.    (setq dir (getvar "dwgprefix"))
  10.    (setq a (open "daily.log" "w"))
  11.    (write-line name a)
  12.    (write-line dir a)
  13.    (write-line edit1 a)
  14.    (write-line lastedit a)
  15.    (write-line create a)
  16.    (close a)
  17. )